Voorbeeld van de gebeurtenis QueryClose

De volgende programmacode dwingt de gebruiker op het clientgebied van het gebruikersformulier te klikken om deze af te sluiten. Wanneer de gebruiker het vak Sluiten in de titelbalk probeert te gebruiken, wordt de parameter Annuleren ingesteld op een waarde die geen nul is, waardoor afsluiten wordt voorkomen. Als de gebruiker echter op het clientgebied heeft geklikt, krijgt CloseMode de waarde 1 en wordt Unload Me voltooid.

Private Sub UserForm_Activate()
    UserForm1.Caption = "Klik om af te sluiten."
End Sub

Private Sub UserForm_Click()
  Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'Voorkomt dat gebruiker sluit met het sluitblokje in de titelbalk.
    If CloseMode <> 1 Then Cancel = 1
    UserForm1.Caption = "Het sluitblokje werkt niet! Klik hier!"
End Sub